#!/usr/bin/perl

use warnings;
use strict;

open (SAMPLE, "sample.file") or die $!;

foreach (<SAMPLE>) {
    if ( $_ =~ /([a-zA-Z ]*Ephram[a-zA-Z ]*):/) {
        printf "%s is selected.\n", uc($1);
    }
}

close SAMPLE;
